home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard Danish (DK-1.2.2) / Idestakke / Baggrundsideer / background_33019.txt < prev    next >
Text File  |  1988-12-19  |  3KB  |  155 lines
  1. -- background: 33019 from stack: in
  2. -- bmap block id: 48301
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11.  
  12. -- part 4 (button)
  13. -- low flags: 00
  14. -- high flags: 0000
  15. -- rect: left=225 top=311 right=336 bottom=252
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 15420 / 15420
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Prev
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   visual effect wipe right
  27.   go to prev card
  28. end mouseUp
  29.  
  30.  
  31.  
  32.  
  33. -- part 5 (button)
  34. -- low flags: 00
  35. -- high flags: 0000
  36. -- rect: left=259 top=311 right=336 bottom=287
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 16560 / 16560
  39. -- text alignment: 1
  40. -- font id: 0
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: Next
  45. ----- HyperTalk script -----
  46. on mouseUp
  47.   visual effect wipe left
  48.   go to next card
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 6 (button)
  54. -- low flags: 00
  55. -- high flags: 0000
  56. -- rect: left=463 top=311 right=336 bottom=494
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 6720 / 6720
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Return
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   visual effect iris close
  68.   pop card
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part 7 (button)
  74. -- low flags: 00
  75. -- high flags: 0000
  76. -- rect: left=13 top=21 right=55 bottom=52
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 20098 / 20098
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Hjem
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   visual effect iris close
  88.   go "Home"
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 8 (button)
  94. -- low flags: 00
  95. -- high flags: 0000
  96. -- rect: left=59 top=25 right=50 bottom=87
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 20965 / 20965
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: opgaver
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   go to card "Opgaver1" of "Kalender"
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 9 (button)
  113. -- low flags: 00
  114. -- high flags: 0000
  115. -- rect: left=99 top=26 right=51 bottom=127
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 21209 / 21209
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Kalender
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   set lockscreen to true
  127.   go to "Kalender"
  128.   goWeekly the seconds
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 10 (button)
  134. -- low flags: 00
  135. -- high flags: 0000
  136. -- rect: left=133 top=22 right=53 bottom=169
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 30696 / 30696
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: Telefon
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   get the selection
  148.   if it is empty then get the message
  149.   if it is empty then ask "Ring til hvilket nummer?"
  150.   if it is not empty then
  151.     dial it
  152.   end if
  153. end mouseUp
  154.  
  155.